* lisp/tab-bar.el (tab-bar-swap-tabs): Use cl-rotatef instead of rotatef.

diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index 1c182a9ba18983b76372024cdec4f453e742408c..113202a3b54bd1067a5b9f896700acf8eca1a74b 100644 (file)
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -551,8 +551,8 @@ FROM-INDEX and TO-INDEX count from 1."
   (interactive "P")
   (let* ((tabs (funcall tab-bar-tabs-function))
          (from-index (or from-index (1+ (tab-bar--current-tab-index tabs)))))
-    (rotatef (nth (1- from-index) tabs)
-             (nth (1- to-index) tabs))))
+    (cl-rotatef (nth (1- from-index) tabs)
+                (nth (1- to-index) tabs))))
 
 (defun tab-bar-move-tab (&optional arg)
   "Move the current tab ARG positions to the right.